Power CD

home *** CD-ROM | disk | FTP | other *** search

/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / MOUSE_28 / SOURCE / MOUSE28.S

Wrap

Text File | 1990-03-08 | 70.9 KB | 3,276 lines

************************************************************************** * * * MOUSE-KA-MANIA! * * * * by Charles F. Johnson * * * * Copyright 1987 Charles F. Johnson & Little Green Footballs Software. * * All rights reserved. * * * * This source code is for the MADMAC assembler. * * * ************************************************************************** * ----------------------------------- * Last revision: 08/27/87 13:14:48 * ----------------------------------- .include "C:\\AS68\\OBJECT.S" * Object index equates savebt = 22 loadbt = 29 clrmbt = 30 clrdbt = 23 invdbt = 24 invmbt = 31 upbt = 11 leftbt = 12 downbt = 18 ritebt = 13 mirdbt = 25 mirmbt = 32 exitbt = 26 instbt = 5 remvbt = 6 undobt = 27 rotbt = 28 cdowbt = 8 cupbt = 10 colval = 9 colttl = 7 frmttl = 14 frdown = 15 frup = 17 frmval = 16 anonof = 21 loinst = 3 loremv = 7 loexit = 11 locolr = 10 lodown = 12 locval = 13 loup = 14 losvbt = 5 * Guaranteed memory locations ipl_vec = $70 ; System vertical blank vector sshiftmod = $44C ; System resolution variable * These locations are undocumented, and are not guaranteed to remain the same * in future versions of TOS. However, they are referenced by negative * offsets from the Line A variable areas, and they do work with the version * of TOS in the Mega ST. ignore = -$153 ; Negative offset to mouse packet ignore flag but_stat = -$15C ; Offset to mouse button status variable mouse_x = -$25A ; Mouse X location (pokeable) .text move.l #ustack,a7 ; Accessory initialization dc.w $A000 ; Line A init move.l a0,line_a move.l #ap1rsv,a5 clr.l (a5) ; appl_init clr.l 4(a5) clr.l 8(a5) clr.l 12(a5) move.l #a_init,aespb bsr aes move.l #m_reg,aespb ; menu_register move intout,intin move.l #accmsg,addrin bsr aes move intout,menuid ; Save menu ID number move.l #g_hand,aespb ; graph_handle bsr aes move intout,ghandl move.l #e_timr,aespb ; Call evnt_timer to let GEM finish doing clr.l intin ; whatever the heck it does to initialize bsr aes ; (Wait for _zero_ milliseconds) move.l #g_mous,aespb ; Set arrow cursor so we can search for it clr.w intin bsr aes move.l #$2000,a5 ; Start searching for the mouse definition sm_1: move.l #arrow_data,a4 ; Pointer to my arrow data move #31,d5 ; 32 words to check sm_2: move.w (a5),d0 ; Get a word cmp.w (a4),d0 ; Match first word of arrow definition? beq.s sm_3 ; Yes, check the rest addq #2,a5 ; Increment pointer bra sm_2 sm_3: move.l a5,a0 ; Save address of first match sm_4: cmp.w (a5)+,(a4)+ ; See if we have the whole mouse here bne sm_1 dbf d5,sm_4 move.l a0,sprtad ; Found it! Save mouse sprite buffer address move.l #r_obfx,aespb ; Adjust coordinates in editor object tree move.l #editbx,addrin move #objnum,d5 fxedt: move d5,intin bsr aes dbf d5,fxedt move.l #lowbox,addrin ; Now adjust the low res object tree move #lo_num,d5 fxlow: move d5,intin bsr aes dbf d5,fxlow move #4,-(sp) ; Get resolution trap #14 addq #2,sp cmp.w #2,d0 ; Hi res? bne.s ckmed1 ; No, skip move.l #hi_val,valsav ; Save address of color translation table bra.s savres ; based on the current resolution ckmed1: cmp.w #1,d0 bne.s cklow1 move.l #med_val,valsav bra.s savres cklow1: move.l #low_val,valsav savres: move d0,o_res ; Save boot resolution cmp.w #2,d0 ; High res? beq.s hi1 ; Yes, skip move.l #y_off,a0 ; Adjust the Y coordinate variables move #4,d5 ; 5 of these adjres: lsr.w (a0)+ ; Divide by 2 dbf d5,adjres move.w #160,y_scr hi1: subq.w #4,upco ; Adjust the positions of a few objects subq.w #4,leftco subq.w #4,riteco subq.w #4,downco addq.w #2,datco addq.w #2,mskco cmp.w #2,d0 ; d0 still holds resolution (right?) bne.s med1 ; Not hi res, skip addq.w #3,cop_co+2 subq.w #3,footco+2 ; Shuffle them objects! subq.w #6,leftco+2 subq.w #6,riteco+2 sub.w #12,downco+2 bra.s fsel_search med1: subq.w #3,leftco+2 ; Have to move 'em by different amounts subq.w #3,riteco+2 ; in medium res subq.w #6,downco+2 move #4,filhot ; Set medium res hot spot fill style move #4,fillst ; Set mask fill style move #4,celsiz ; Editing grid cell size move #2,planes ; Number of color planes fsel_search: clr.w fsflag ; Clear "search failed" flag move.l #$A000,a5 ; Start searching at $A000 s_1: move.l #itmtxt,a4 ; Get pointer to search string ("ITEM SELECTOR") move #12,d5 ; Get number of bytes to search for s_2: move.b (a5),d0 ; Get a character cmp.b (a4),d0 ; Is it "I"? beq.s s_3 ; Yes, check for rest of string addq #1,a5 ; Increment the pointer cmp.l #$40000,a5 bne s_2 bra.s s_6 ; Keep searching s_3: move.l a5,a0 ; Save address of first match s_4: cmp.b (a5)+,(a4)+ ; See if we have the whole string bne s_1 ; No, go search more dbf d5,s_4 ; Count down and loop tst.b 13(a0) ; There should be a zero after it bne s_1 s4_2: move.l a0,d0 ; Found it! Save address of text in d0 move.l a0,iasav move.l a0,d1 ; Move address to d1 so we can manipulate it bclr #0,d1 ; Clear odd bit move.l d1,a0 ; Back to a0 s_5: subq #2,a0 ; Decrement the pointer to memory cmp.l #$A000,a0 ; Back at the start already? beq.s s_6 ; Yes, skip ahead move.l (a0),d1 ; Get a longword cmp.l d1,d0 ; Is this the pointer to "ITEM SELECTOR"? bne s_5 ; No, search more move.l a0,itmadr ; Save address of pointer move 8(a0),ilensv ; Save original string length bra.s search s_6: move #1,fsflag ; Set flag to indicate search failure search: clr.w lowflg cmp.w #2,o_res ; High res? beq getdrv ; Yes, skip this move.l #$A000,a5 sr_1: move.l #restxt,a4 ; Find object spec of "Low" button in the move #14,d5 ; "Set Preferences" desktop dialog box sr_2: move.b (a5),d0 cmp.b (a4),d0 beq.s sr_3 addq #1,a5 cmp.l #$40000,a5 beq.s sr_6 bra sr_2 sr_3: move.l a5,a0 sr_4: cmp.b (a5)+,(a4)+ bne sr_1 dbf d5,sr_4 tst.b 15(a0) ; Once again, there has to be a zero after it bne sr_1 move.l a0,d0 move.l a0,d1 bclr #0,d1 move.l d1,a0 sr_5: subq #2,a0 cmp.l #$A000,a0 beq.s sr_6 move.l (a0),d1 cmp.l d1,d0 bne sr_5 subq #2,a0 ; Point to status word of "Low" button move.l a0,d0 sub.l #96,d0 ; Get pointer to status word of "OK" button move.l d0,res_okptr cmp.w #2,o_res beq.s set_lo tst.w o_res beq.s set_me set_lo: clr.l d0 bra.s mult24 set_me: move.l #1,d0 mult24: mulu #24,d0 ; Compute the index to the button that add.l d0,a0 ; should NOT be selected move.l a0,res_optr ; Save pointer to its status word bra.s getdrv sr_6: move #1,lowflg getdrv: move #$19,-(sp) ; Get current drive trap #1 addq #2,sp add.b #65,d0 ; Convert to ASCII move.l #savdir,a4 move.l #svadir,a2 move.l #loddir,a5 move.l #loadir,a3 move.b d0,(a2)+ move.b d0,(a3)+ move.b d0,(a4)+ move.b d0,(a5)+ move.l #datext,a0 move.l #aniext,a1 move #7,d5 cpydir: move.b (a0),(a4)+ ; Move in the rest of the directory lines move.b (a0)+,(a5)+ move.b (a1),(a2)+ move.b (a1)+,(a3)+ dbf d5,cpydir clr.w colflg ; Clear color change flag clr.w insflg ; Clear installed flag clr.w antflg ; Clear animation title flag clr.w onoff ; Clear animation on/off flag clr.w franum ; Clear frame number clr.w moucnt clr.w vbi_on clr.w diflag move.w #1,nframs ; Set number of frames in loop tst.w o_res ; Are we in low res? bne.s rdef1 ; No, skip move.l #lowdef,a5 ; Set address of default mouse filename bra.s rdef3 ; based on current res rdef1: cmp.w #1,o_res bne.s rdef2 move.l #meddef,a5 bra.s rdef3 rdef2: move.l #hidef,a5 rdef3: move.l a5,filadr bsr sav_exist bmi no_def cmp.l #74,dta+26 ; Is it a data file? (74 bytes) beq rdef4 ; Yes, skip bsr open_file ; Open the file bmi no_def ; Error, bail move d0,fhandl move.l #mouse_array,a5 ; Set address of mouse animation array move.l #74*32,d5 ; Length of data bsr read_file bmi no_def move.l #nframs,a5 ; Now read number of frames move.l #2,d5 bsr read_file move.l #delval,a5 ; And delay value bsr read_file bsr clos_file cmp.w #32,nframs ; # of frames greater than 32? bhi.s rdef3_0 ; Yes, exit cmp.w #99,delval bhi.s rdef3_0 move.l #mouse_array,a0 move #31,d0 ckdanf: cmp.w #15,(a0) ; Check all hotspot positions bhi.s rdef3_0 ; and color values cmp.w #15,2(a0) bhi.s rdef3_0 cmp.w #15,6(a0) bhi.s rdef3_0 cmp.w #15,8(a0) bhi.s rdef3_0 add.l #74,a0 dbf d0,ckdanf bra.s rdef3_1 rdef3_0: bsr clear_array bra.s no_def rdef3_1: bsr arr_2_frm ; Copy first frame to editing area bsr init_nfrm ; Initialize frame number box move.l #anonms,tinf5 ; Set "Animation ON" message move.w delval,vbtimr ; Set the vertical blank timer clr.w moucnt ; Clear the frame counter move #1,onoff ; Now set the animation flag bra.s rdef5 rdef4: bsr open_file ; Try to open default mouse file bmi.s no_def ; Error, assume file not found move d0,fhandl ; Save handle move.l #mouse_form,a5 ; Read mouse data from file move.l #74,d5 bsr read_file bsr clos_file ; Close it rdef5: bsr cpy_inst ; Copy it to the "installed" area bsr frm_2_arr bsr init_col ; Initialize the color indicators move #1,insflg ; Set installed flag no_def: bsr copy_mouse ; Initialize the undo buffer pea save_vbv move.w #38,-(sp) trap #14 addq #6,sp tst.w insflg ; Mouse installed? beq.s evntms ; No, skip move #1,vbi_on ; Turn on the vertical blank interrupt evntms: move.l #e_mesg,aespb ; Wait for GEM to send us a message move.l #mspipe,addrin bsr aes cmp.w #40,mspipe ; Is this an AC_OPEN message? bne evntms ; No, go back move mspipe+8,d0 ; Is it for this accessory? cmp.w menuid,d0 bne evntms ; No, go back move.l #w_updt,aespb ; Call wind_update to block user actions move #1,intin bsr aes move #2,-(sp) ; Get address of screen RAM trap #14 addq #2,sp move.l d0,screen ; Save it move #$19,-(sp) ; Get current drive trap #1 addq #2,sp move d0,curdrv ; Save it clr.w -(sp) ; Get current pathname move.l #curpth,-(sp) move #$47,-(sp) trap #1 addq #8,sp move #4,-(sp) ; Get current resolution trap #14 addq #2,sp move.w d0,res tst.w d0 ; Low res? bne continue ; No, forge ahead bsr open_window tst d0 bmi alrtx1 tst onoff ; Animation on? bne.s arroff ; Yes, turn off color change box tst.w insflg ; Is a mouse installed? bne.s arr_on ; Yes, skip ahead arroff: move #DISABLED,locstt ; Disable the color change box move #DISABLED,lodstt move #DISABLED,loustt move #DISABLED,losstt move.l #blnkms,lovadr bra.s dolbox ; And continue arr_on: move #NORMAL,locstt ; Enable the color change box move #NORMAL,lodstt move #NORMAL,loustt move #NORMAL,losstt tst colflg bne.s ao_1 move.l #dvalms,lovadr bra.s dolbox ao_1: move.l #mvalms,lovadr dolbox: move.l #lowbox,addrin ; Draw the low res dialog box bsr drawbx move #1,diflag loinpt: bsr formdo ; Get user input bclr #7,intout ; Clear high bit in case of double-click cmp.w #loinst,intout ; 'Install' button selected? bne alrt0 ; No, skip move #NORMAL,loistt ; De-select it clr.w adflag move.l #dat_or_ani,a5 ; Show alert box clr d5 bsr alert cmp.w #1,intout ; Animation file? bne.s l_lo1 move #1,adflag bsr fsl_aload bra.s l_lo2 l_lo1: bsr fsl_dload ; Set up fsel strings l_lo2: bsr fsel ; Go call the dreaded File Selector move.l filadr,a0 tst.b (a0) ; Got a filename? beq dolbox ; No, exit cmp.w #1,intout+2 ; OK button? bne dolbox ; No, exit bsr set_path ; Set drive and path move.l filadr,a5 ; Load the mouse cursor file bsr open_file bmi alrtx ; Error, bail out-ski move d0,fhandl ; Save file handle tst adflag beq.s l_lo3 bsr chk_anfile tst.w a_good beq.s lo_a0 move.l #notani,a5 move #1,d5 bsr alert bsr clos_file bra alrtx lo_a0: moveq #0,d0 bsr lseek move.l #mouse_array,a5 move.l #74*32,d5 bsr read_file move.l #nframs,a5 move.l #2,d5 bsr read_file move.l #delval,a5 bsr read_file bsr clos_file move.w #1,insflg move.w #1,onoff move #1,vbi_on ; Turn on the vertical blank interrupt bra arroff l_lo3: move.l #mouse_form,a5 ; Read in the mouse move.l #74,d5 bsr read_file bmi alrtx bsr clos_file ; Close the file bsr cpy_inst ; Move it to 'installed' area bsr chg_mouse ; Go change the mouse bsr init_col ; Initialize the color counters move #1,insflg ; Set installed flag clr.w onoff move #1,vbi_on ; Turn on the vertical blank interrupt bra arr_on alrt0: cmp.w #losvbt,intout ; Save? bne alrt1 move #NORMAL,losstt ; De-select the button tst onoff ; Animation on? beq.s al0_0 move #losvbt,intin move.l #lowbox,addrin bsr objoff bra loinpt al0_0: bsr fsl_dsave ; Set up fsel text strings bsr fsel tst.b savfil ; Filename present? beq dolbox ; Nope, exit cmp.w #1,intout+2 ; OK button? bne dolbox ; No, must be 'Cancel' bsr set_path ; Set the pathname from fsel's output move.l #datext+3,a1 bsr chk_extension ; Add the .DAT extension (if none exists) bsr sav_exist ; See if the file already exists bne.s locrea ; It doesn't, skip ahead bsr set_exist ; Move the filename to the alert box lo_sho: move.l #exist,a5 ; Show alert box move #1,d5 bsr alert cmp.w #1,intout ; Overwrite the file? bne dolbox ; No, split move.l #savfil,a0 bsr delete_file locrea: clr.w -(sp) ; Create the data file pea savfil move #$3C,-(sp) trap #1 addq #8,sp tst.w d0 bmi dolbox move d0,fhandl move.l #m_form2,-(sp) ; Write the mouse buffer to the file move.l #74,-(sp) move fhandl,-(sp) move #$40,-(sp) trap #1 add #12,sp cmp.l #74,d0 beq.s locr_1 move.l #dskful,a5 move #1,d5 bsr alert move.l #savfil,a0 bsr delete_file locr_1: bsr clos_file ; Close it bra dolbox alrt1: cmp.w #loremv,intout ; Remove? bne.s alrt2 ; No, skip clr vbi_on ; Remove the vertical blank interrupt move.l #g_mous,aespb ; And turn on the arrow clr.w intin bsr aes clr.w insflg clr.w onoff move #NORMAL,lorstt ; De-select the button bra alrtx alrt2: cmp.w #lodown,intout ; Color down button? bne.s alrt3 ; No, hop over this code tst insflg ; Installed? beq loinpt ; No, go back tst onoff bne loinpt tst.w colflg ; Which color are we changing? bne.s lcd_1 ; Must be the mask tst.w m_form2+8 ; Is this color zero already? beq loinpt ; Yes, exit subq.w #1,m_form2+8 ; Decrement the color register value move.l #dvalms,a5 ; Address of data color text bra.s lcd_2 ; Skip over lcd_1: tst.w m_form2+6 ; Is it zero? beq loinpt ; Yes, let's just forget about this subq.w #1,m_form2+6 ; Decrement it move.l #mvalms,a5 ; Address of mask color text lcd_2: move.l #1,d5 ; Two characters add.l d5,a5 ; Set pointer to 2nd character ldloop: cmp.b #'0',(a5) ; Is it ASCII zero? bne.s ldl2 ; No, skip ahead move.b #'9',(a5) ; Wrap it around to 9 bra.s ldl3 ldl2: subq.b #1,(a5) ; Decrement the letter bra.s lodrw1 ldl3: subq #1,a5 ; Set pointer to next place dbf d5,ldloop ; Do the 2nd letter bra.s lodrw1 ; Go draw the text object alrt3: cmp.w #loup,intout ; Color up button? bne alrt4 ; No, get out! tst insflg ; Installed? beq loinpt tst onoff bne loinpt tst.w colflg ; The rest of this code is identical to bne.s lcu_1 ; the above section, except that it handles cmp.w #15,m_form2+8 ; incrementing the color value beq loinpt addq.w #1,m_form2+8 move.l #dvalms,a5 bra.s lcu_2 lcu_1: cmp.w #15,m_form2+6 beq loinpt addq.w #1,m_form2+6 move.l #mvalms,a5 lcu_2: move.l #1,d5 add.l d5,a5 luloop: cmp.b #'9',(a5) bne.s lul2 move.b #'0',(a5) bra.s lul3 lul2: addq.b #1,(a5) bra.s lodrw1 lul3: subq #1,a5 dbf d5,luloop lodrw1: bsr chg_mouse ; Go change the mouse's color lodraw: move #locval,intin ; Index of object to draw move.l #lowbox,addrin ; Address of object tree bsr objoff ; Go draw it bra loinpt alrt4: cmp.w #locolr,intout ; Data/Mask toggle? bne.s alrtx ; No, skip tst insflg beq loinpt tst onoff bne loinpt eor.w #1,colflg ; Toggle the flag tst.w colflg ; Which one is it? beq.s lsw_1 ; It's data, skip ahead move.l #mcolms,tinf10 ; Set pointers to text in object tree move.l #mvalms,lovadr bra.s lsw_2 lsw_1: move.l #dcolms,tinf10 move.l #dvalms,lovadr lsw_2: move #locolr,intin move.l #lowbox,addrin bsr objoff ; Go draw the object bra lodraw alrtx: bsr res_dpath ; Reset the drive and pathnames move #NORMAL,loestt move #3,intin bsr dial move.l #w_clos,aespb ; Close window so the application gets a move whandl,intin ; redraw message bsr aes move.l #w_del,aespb ; Now delete the window bsr aes alrtx1: move.l #w_updt,aespb ; Allow user actions again clr.w intin ; (Hah! Were they ever disabled???) bsr aes clr.w diflag bra evntms ; Wait patiently for another message * Subroutines for low-res dialog box (strange place for them, I know) chg_mouse: move.l #g_mous,aespb ; Change that mousey! move #255,intin move.l #m_form2,addrin bra aes fsl_dload: move.l #i_load,txtadr ; Set up the 'Load' fsel text strings move #il_len,itmlen move.l #loddir,diradr move.l #lodfil,filadr rts fsl_aload: move.l #i_aloa,txtadr move #iallen,itmlen move.l #loadir,diradr move.l #loafil,filadr rts fsl_dsave: move.l #i_save,txtadr ; The 'Save' fsel text strings move #is_len,itmlen move.l #savdir,diradr move.l #savfil,filadr rts fsl_asave: move.l #i_asav,txtadr move #iaslen,itmlen move.l #svadir,diradr move.l #svafil,filadr rts sav_exist: pea dta ; Set DTA address move #$1A,-(sp) trap #1 addq #6,sp clr.w -(sp) move.l filadr,-(sp) move #$4E,-(sp) ; Check to see if the file already exists trap #1 addq #8,sp tst d0 ; Does it? rts cpy_inst: move.l #mouse_form,a0 ; Copy mouse data to "installed" area move.l #m_form2,a1 move #36,d5 cpyi1: move (a0)+,(a1)+ dbf d5,cpyi1 rts set_exist: move.l #exname,a4 ; Clear filename space in alert box move #11,d5 sete1: move.b #' ',(a4)+ dbf d5,sete1 move.l filadr,a5 ; Move filename into alert box move.l #exname,a4 move #12,d5 sete2: tst.b (a5) beq.s sete3 move.b (a5)+,(a4)+ dbf d5,sete2 sete3: rts * Here's where the editor code begins continue: move.l #contrl,a5 move #100,(a5) ; v_opnvwk (Open Virtual Workstation) clr.w 2(a5) move #11,6(a5) move ghandl,12(a5) ; Pass handle returned from graph_handle move.l #intin,a4 move.l #9,d5 vwrklp: move #1,(a4)+ dbf d5,vwrklp move #2,(a4) bsr vdi1 move 12(a5),vhandl ; Save VDI handle move #35,(a5) ; Inquire current polyline attributes clr.w 2(a5) ; vql_attributes clr.w 6(a5) bsr vdi move.l #intout,a0 move (a0)+,l_type ; Save 'em move (a0)+,l_colr move (a0)+,d_mode move (a0)+,l_strt move (a0)+,l_end move ptsout,l_wid move #37,(a5) ; Inquire current fill attributes clr.w 2(a5) ; vqf_attributes clr.w 6(a5) bsr vdi move.l #intout,a0 move (a0)+,f_type ; Save these attributes too move (a0)+,f_colr move (a0)+,f_patt bsr exch_button ; Set the button routine to an rts * move.l #intout,a5 * move.l 2(a5),wx ; Dialog box centered coordinates * move.l 6(a5),ww * subq.w #2,wx ; Compensate for the shadow * subq.w #2,wy * addq.w #4,ww * addq.w #4,wh bsr open_window tst d0 beq.s box move.l #w_updt,aespb clr.w intin bsr aes bra ex2 box: move.l #editbx,addrin bsr drawbx ; Draw the dialog box move #1,diflag dc.w $A00A ; Hide mouse move #1,intin ; Replace bsr write_mode move #1,intin ; Black lines bsr poly_color move #1,intin ; Ordinary straight lines bsr poly_type move #1,ptsin ; One pixel wide clr.w ptsin+2 bsr poly_width clr.l intin ; Normal, squared ends bsr poly_ends move #2,intin ; Set fill style to dots bsr vsf_interior move #16,d4 ; Loop counter move.l #ptsin,a4 ; Keep address of ptsin array in a4 move #2,pt_num ; Just two points grid1: move #50,(a4) ; Draw the editing grids move d4,d0 mulu y_div,d0 add.w y_off,d0 move d0,2(a4) move #210,4(a4) move d4,d0 mulu y_div,d0 add.w y_off,d0 move d0,6(a4) bsr polyline move #250,(a4) move d4,d0 mulu y_div,d0 add.w y_off,d0 move d0,2(a4) move #410,4(a4) move d4,d0 mulu y_div,d0 add.w y_off,d0 move d0,6(a4) bsr polyline move d4,d0 mulu #10,d0 add.w #50,d0 move d0,(a4) move y_off,2(a4) move d4,d0 mulu #10,d0 add.w #50,d0 move d0,4(a4) move y_bot,6(a4) bsr polyline move d4,d0 mulu #10,d0 add.w #250,d0 move d0,(a4) move y_off,2(a4) move d4,d0 mulu #10,d0 add.w #250,d0 move d0,4(a4) move y_bot,6(a4) bsr polyline dbf d4,grid1 move #434,(a4) ; Draw the mouse-change rectangle move y_off,2(a4) move #516,4(a4) move y_off,6(a4) move #516,8(a4) move chang1,10(a4) move #434,12(a4) move chang1,14(a4) move #434,16(a4) move y_off,18(a4) move #5,pt_num bsr polyline move #1,intin bsr vsf_color move #8,intin bsr vsf_style move.l #contrl,a5 move #114,(a5) move #2,2(a5) clr.w 6(a5) move #434,ptsin ; Fill the top half of the mouse-change move y_off,ptsin+2 ; rectangle move #516,ptsin+4 move chang2,ptsin+6 bsr vdi bsr show_mouse ; Oh, there's that little mousey! clr.w m_flag ; Clear mouse-change flag bsr map_grid ; Go map the shape clr.w d_flag ; Clear the drawing flag the_big_loop: bsr sample_mouse ; Let's see what's happening move.b intout+1,butsav ; Save button status move.l ptsout,mousex ; and X and Y coordinates move.l #o_cfnd,aespb ; objc_find --- get the index number of the move.l #intin,a0 ; object under the mouse cursor move.l #$00000005,(a0)+ move.l mousex,(a0)+ move.l #editbx,addrin bsr aes move intout,d5 move.l #ob_inx,a0 sub.w d0,d0 ck_obs: cmp.w (a0)+,d5 ; Compare it with the active object list beq.s gotobj ; Got one! addq.w #1,d0 ; Increment counter cmp.w #oi_len,d0 ; Done? bne ck_obs ; No, do the rest bra ckchng ; If we get here, we're not over an active object gotobj: move d0,numrtn ; Save index into routines move d5,o_indx ; Save object index move.l #o_coff,aespb ; Get coordinates of object we're over move d5,intin move.l #editbx,addrin bsr aes move.l intout+2,x_obj1 ; Save X and Y coordinates move intout+2,d0 move intout+4,d1 moveq #0,d4 move o_indx,d4 mulu #24,d4 add.l #editbx,d4 move.l d4,a0 ; a0 -> address of object in tree move.l d4,o_asav add.w 20(a0),d0 ; Compute diagonal opposite point of the box add.w 22(a0),d1 ; by adding the width and height to the move d0,x_obj2 ; X and Y move d1,y_obj2 move.l 20(a0),w_obj ; Save width and height move #0,butflg ; Clear button flag ob_loop: bsr sample_mouse ; Where am I? (said the amnesia victim) move ptsout,d0 ; Get current X coordinate cmp.w x_obj1,d0 ; Check to see if we're still over the blt ortn_exit ; same object; if not, exit cmp.w x_obj2,d0 bgt ortn_exit move ptsout+2,d0 cmp.w y_obj1,d0 blt ortn_exit cmp.w y_obj2,d0 bgt ortn_exit btst #0,intout+1 ; Pressing the left button? bne.s ol1_2 ; Yes, go ahead btst #1,intout+1 ; Right button? beq ob_loop ; No, go back ol1_2: move #1,butflg ; Yes, set the button flag move.w o_indx,d0 cmp.w #cdowbt,d0 beq.s oloop2 cmp.w #cupbt,d0 beq.s oloop2 cmp.w #colttl,d0 beq.s oloop2 cmp.w #frmttl,d0 beq.s oloop2 cmp.w #frdown,d0 beq.s oloop2 cmp.w #frup,d0 beq.s oloop2 cmp.w #anonof,d0 beq.s oloop2 move.l o_asav,a0 ; Address of object in tree or.w #SELECTED,10(a0) ; Turn it on, dead man bsr obdraw ; And draw it oloop2: bsr sample_mouse ; Where am I now? move.w o_indx,d0 cmp.w #frdown,d0 beq.s ol2_2 cmp.w #frup,d0 beq.s ol2_2 btst #0,intout+1 ; Still pressing the button? bne oloop2 ; Yes, loop btst #1,intout+1 bne oloop2 ol2_2: move ptsout,d0 ; OK, we let go of the button. Now let's cmp.w x_obj1,d0 ; check to see whether we're still over blt.s go_oex ; the same object; if not, exit cmp.w x_obj2,d0 bgt.s go_oex move ptsout+2,d0 cmp.w y_obj1,d0 blt.s go_oex cmp.w y_obj2,d0 ble.s oloop3 go_oex: move #-1,numrtn bra ortn_exit oloop3: moveq #0,d0 move numrtn,d0 ; Get index into address table lsl.w #2,d0 ; Multiply by 4 (to adjust for longwords) add.l #rtn_table,d0 ; Add start of table move.l d0,a5 ; Move it to a place where it can do some good move.l (a5),a5 ; Get routine address into a5 jmp (a5) ; And jump to it! * Object-related routines save: clr.w adflag bsr repl_button move.l #dat_or_ani,a5 ; Show alert box clr d5 bsr alert bsr exch_button cmp.w #1,intout ; Animation file? bne.s sv1 move #1,adflag ; Set flag bsr fsl_asave bra.s sv2 sv1: bsr fsl_dsave ; Set fsel parameters sv2: bsr repl_button ; Restore the button vector bsr fsel ; Call the dreaded File Selector bsr exch_button ; Point button vector to an RTS again move.l filadr,a0 tst.b (a0) ; Got a filename? beq ortn_exit cmp.w #1,intout+2 ; OK button? bne ortn_exit bsr set_path ; Set pathname tst adflag beq.s sv3 move.l #aniext+3,a1 bra.s sv4 sv3: move.l #datext+3,a1 sv4: bsr chk_extension ; Check for extension bsr sav_exist ; Does the file already exist? bne.s create ; No, continue bsr set_exist ; Copy the name into the alert box sho_al: bsr repl_button ; Replace the system button routine vector move.l #exist,a5 ; Show alert box move #1,d5 bsr alert bsr exch_button ; Turn off the button routine again cmp.w #1,intout ; Yes button? bne sav_x ; No, exit move.l filadr,a0 bsr delete_file create: clr.w -(sp) ; Create the data file move.l filadr,-(sp) move #$3C,-(sp) trap #1 addq #8,sp tst.w d0 bmi sav_x move d0,fhandl tst adflag beq.s sv5 move.l #mouse_array,-(sp) move.l #74*32,d5 bra.s sv6 sv5: move.l #mouse_form,-(sp) ; Write the mouse data to the file move.l #74,d5 sv6: move.l d5,-(sp) move fhandl,-(sp) move #$40,-(sp) trap #1 add #12,sp cmp.l d5,d0 beq.s sv7 full: bsr repl_button move.l #dskful,a5 move #1,d5 bsr alert bsr exch_button move.l filadr,a0 bsr delete_file bra.s sv8 sv7: tst adflag ; Data or animation? beq.s sv8 ; Data, skip move.l #nframs,-(sp) ; Save number of frames and delay value move.l #2,-(sp) move fhandl,-(sp) move #$40,-(sp) trap #1 add #12,sp cmp.l #2,d0 bne full move.l #delval,-(sp) move.l #2,-(sp) move fhandl,-(sp) move #$40,-(sp) trap #1 add #12,sp cmp.l #2,d0 bne full sv8: bsr clos_file ; Close it nice and tight sav_x: bra ortn_exit load: clr.w adflag bsr repl_button move.l #dat_or_ani,a5 ; Show alert box clr d5 bsr alert bsr exch_button cmp.w #1,intout ; Animation file? bne.s lo1 move #1,adflag bsr fsl_aload bra.s lo2 lo1: bsr fsl_dload ; Same old fsel stuff as everywhere else lo2: bsr repl_button bsr fsel bsr exch_button move.l filadr,a0 tst.b (a0) ; Filename? beq ortn_exit cmp.w #1,intout+2 ; OK button? bne ortn_exit bsr set_path move.l filadr,a5 bsr open_file bmi lod_x2 move d0,fhandl tst adflag beq.s lo3 bsr chk_anfile tst.w a_good beq.s lo2_2 lo2_1: bsr repl_button move.l #notani,a5 move #1,d5 bsr alert bsr exch_button bra.s lod_x lo2_2: moveq #0,d0 bsr.s lseek move.l #mouse_array,a5 move.l #74*32,d5 bsr read_file bmi.s lod_x move.l #nframs,a5 move.l #2,d5 bsr read_file move.l #delval,a5 bsr read_file bsr clos_file clr.w franum move.b #'0',frvlms move.b #'1',frvlms+1 bsr arr_2_frm bsr init_nfrm bra.s lo4 lo3: move.l #mouse_form,a5 ; Read in the mouse data move.l #74,d5 bsr read_file bmi.s lod_x lo4: bsr copy_mouse ; Copy to undo buffer bsr init_col ; Initialize color indicators lod_x: bsr clos_file lod_x2: bra ortn_exit lseek: move #0,-(sp) move.w fhandl,-(sp) move.l d0,-(sp) move.w #$42,-(sp) trap #1 add #10,sp tst.l d0 rts clr_mask: bsr copy_mouse ; Save in undo buffer move.l #m_mask,a5 ; Address of mask bra.s clr2 clr_data: bsr copy_mouse ; Save mouse move.l #m_image,a5 ; Address of data clr2: move #7,d5 ; 8 longwords (16 words) clrd1: clr.l (a5)+ ; Clear that mouse! dbf d5,clrd1 bsr map_grid ; Draw it on the grid bra ortn_exit inv_data: bsr copy_mouse move.l #m_image,a5 bra.s inv2 inv_mask: bsr copy_mouse move.l #m_mask,a5 inv2: move #15,d5 ; 16 words invm1: eor.w #$FFFF,(a5)+ ; Invert every bit in each word dbf d5,invm1 bsr map_grid ; Draw it on the grid bra ortn_exit mir_data: bsr copy_mouse move.l #m_image,a5 bra.s mir2 mir_mask: bsr copy_mouse move.l #m_mask,a5 mir2: move #15,d5 ; 16 words of mouse data mir3: move #15,d4 ; 16 bits in each word clr.w d1 ; Clear work register move (a5),d0 ; Get the word mirm1: lsl d0 ; Shift a bit left roxr d1 ; Roll it right into the work register dbf d4,mirm1 ; Do all 16 bits move d1,(a5)+ ; Put it back dbf d5,mir3 ; Do all 16 words bsr map_grid ; Draw the grid bra ortn_exit rotate: bsr copy_mouse ; Save in undo buffer move.l #m_rotate,a5 ; Address of rotation buffer move #15,d5 r_clr: clr.l (a5)+ ; First, clear out the rotation buffer dbf d5,r_clr move.l #m_mask+30,a4 ; Start at end of data move.l #m_rotate,a5 r_lp1: move #15,d4 ; 16 words wordlp: move (a4),d2 ; Get a word move #15,d5 ; 16 bits per word bitloo: move d5,d3 ; Get bit number lsl d3 ; Multiply by 2 (for word offset) move 0(a5,d3),d1 ; Get word from rotation buffer lsr d2 ; Shift a bit right roxl d1 ; Roll it left into d1 move d1,0(a5,d3) ; Put this new word back dbf d5,bitloo ; Do all 16 bits subq.w #2,a4 ; Point to next data word dbf d4,wordlp ; Do all 16 words cmp.l #m_mask-2,a4 ; We're rotating both mask and data together bne.s r_cpy1 ; All done, skip ahead move.l #m_mask+62,a4 ; Set address of mask move.l #m_rotate+32,a5 bra r_lp1 ; Go finish the job r_cpy1: move.l #m_mask,a4 move.l #m_rotate,a5 move #15,d5 r_cpy: move.l (a5)+,(a4)+ ; Move the mouse data from the rotation buffer dbf d5,r_cpy bsr map_grid ; Draw the grid bra ortn_exit up: bsr copy_mouse ; Scroll mouse image up move.l #m_image,a5 ; First, the data move (a5),temp ; Save top word move #14,d5 up1: move 2(a5),(a5)+ ; Move 'em up dbf d5,up1 move temp,(a5) ; Put the top line in at the bottom move.l #m_mask,a5 ; Now do the mask move (a5),temp move #14,d5 up2: move 2(a5),(a5)+ ; Get on up! dbf d5,up2 move temp,(a5) bsr map_grid ; Draw the grid bra ortn_exit left: bsr copy_mouse ; Scroll mouse form left move.l #m_mask,a5 move #31,d5 left1: lsl (a5)+ ; Shift a bit left bcc.s left2 ; This bit wasn't set, skip ahead or.w #1,-2(a5) ; Set rightmost bit left2: dbf d5,left1 bsr map_grid bra ortn_exit down: bsr copy_mouse ; Scroll mouse shape down move.l #m_image+30,a5 ; First, the data move (a5),temp ; Save bottom word move #14,d5 down1: move -2(a5),(a5) ; Get down! subq #2,a5 dbf d5,down1 move temp,(a5) ; Put bottom word at the top move.l #m_mask+30,a5 ; Now do the same for the mask move (a5),temp move #14,d5 down2: move -2(a5),(a5) subq #2,a5 dbf d5,down2 move temp,(a5) bsr map_grid bra ortn_exit right: bsr copy_mouse ; Scroll mouse image right move.l #m_mask,a5 move #31,d5 right1: lsr (a5)+ ; Shift a bit bcc.s right2 ; It wasn't set, skip or.w #$8000,-2(a5) ; Set leftmost bit in this word right2: dbf d5,right1 bsr map_grid bra ortn_exit install: move.l #m_mask,a5 ; Don't let 'em install a blank mouse! move #15,d5 ck_i1: tst.l (a5)+ bne.s inst1 dbf d5,ck_i1 bra.s instx inst1: bsr cpy_inst ; Copy mouse to 'Installed' area move.l #g_mous,aespb ; AES graf_mouse call to set the new image move #255,intin move.l #m_form2,addrin bsr aes move #1,insflg ; Set installed flag move #1,vbi_on ; Turn on the vertical blank interrupt instx: bra ortn_exit remove: clr.w insflg ; Clear installed flag clr.w vbi_on ; Remove vertical blank routine move.l #g_mous,aespb ; Set the arrow cursor clr.w intin bsr aes bra ortn_exit undo: bsr res_mouse ; Restore mouse data from the undo buffer bsr map_grid ; Draw it on the grid bra ortn_exit colr_down: tst.w colflg ; Which color? Data or mask? bne.s cd_1 ; Must be the mask color, skip ahead tst.w bg_col ; Is it zero already? beq ortn_exit ; Yes, bail subq.w #1,bg_col ; Decrement it move.l #dvalms,a5 ; Address of color value text bra.s cd_2 ; Skip cd_1: tst.w fg_col ; Zero already? beq ortn_exit ; Yes, forget it subq.w #1,fg_col ; Decrement it move.l #mvalms,a5 ; Address of color value text cd_2: move.l #1,d5 ; Two digits add.l d5,a5 ; Set pointer 2nd digit (ones place) dnloop: cmp.b #'0',(a5) ; Is it ASCII zero? bne.s dnl2 ; No, skip ahead move.b #'9',(a5) ; Put a '9' here bra.s dnl3 dnl2: subq.b #1,(a5) ; Decrement the ASCII number bra.s valdrw ; Go draw it dnl3: subq #1,a5 ; Move pointer to tens digit dbf d5,dnloop bra.s valdrw colr_up: tst.w colflg ; This code does the same thing as the section bne.s cu_1 ; above, but for color-up adjustments cmp.w #15,bg_col beq ortn_exit addq.w #1,bg_col move.l #dvalms,a5 bra.s cu_2 cu_1: cmp.w #15,fg_col beq ortn_exit addq.w #1,fg_col move.l #mvalms,a5 cu_2: move.l #1,d5 add.l d5,a5 uploop: cmp.b #'9',(a5) bne.s upl2 move.b #'0',(a5) bra.s upl3 upl2: addq.b #1,(a5) bra.s valdrw upl3: subq #1,a5 dbf d5,uploop valdrw: move #colval,intin ; Object index of the color value text move.l #editbx,addrin ; Address of object tree bsr objoff ; Go draw this text object bra ortn_exit sw_fgbg: eor.w #1,colflg ; Toggle color flag tst.w colflg ; Which color, mask or data? beq.s sw_1 ; 0=data, 1=mask move.l #mcolms,tinf3 ; Set pointers to text strings move.l #mvalms,valadr bra.s sw_2 sw_1: move.l #dcolms,tinf3 move.l #dvalms,valadr sw_2: move #colttl,intin ; And go draw the object move.l #editbx,addrin bsr objoff bra valdrw sw_anttl: addq.w #1,antflg ; Increment flag move.w antflg,d0 cmp.w #3,d0 ; Greater than 2? bne.s swa_1 sub.w d0,d0 ; Back to zero move.w d0,antflg swa_1: tst d0 ; 0=Frame, 1=# of Frames, 2=Speed bne.s swa_2 move.l #framms,tinf4 move.l #frvlms,anival bra.s swa_4 swa_2: cmp.w #1,d0 bne.s swa_3 move.l #frmnms,tinf4 move.l #fnvlms,anival bra.s swa_4 swa_3: move.l #speems,tinf4 move.l #spvlms,anival swa_4: move.w #frmttl,intin move.l #editbx,addrin bsr objoff move.w #frmval,intin move.l #editbx,addrin bsr objoff bra ortn_exit ani_down: tst antflg ; Are we changing the frame? bne.s anid_2 ; No, skip ahead bsr chk_shift bsr frm_2_arr ; Copy current frame to sequence array tst franum ; Is it zero already? bne.s d_fnum move.b #'3',frvlms move.b #'2',frvlms+1 move.w #31,franum bra fvaldr d_fnum: subq.w #1,franum move.l #frvlms,a5 bra.s ad_1 anid_2: cmp.w #1,antflg ; Changing # of Frames? bne.s anid_3 cmp.w #1,nframs bne.s d_nfrm move.b #'3',fnvlms move.b #'2',fnvlms+1 move.w #32,nframs bra.s fvaldr d_nfrm: subq.w #1,nframs move.l #fnvlms,a5 bra.s ad_1 anid_3: tst delval ; Must be changing the delay value bne.s d_delv move.b #'9',spvlms move.b #'9',spvlms+1 move.w #99,delval bra.s fvaldr d_delv: subq.w #1,delval move.l #spvlms,a5 ad_1: move.l #1,d5 add.l d5,a5 adloop: cmp.b #'0',(a5) ; Is it ASCII zero? bne.s adl2 move.b #'9',(a5) bra.s adl3 adl2: subq.b #1,(a5) ; Decrement the ASCII number bra.s fvaldr adl3: subq #1,a5 ; Move pointer to tens digit dbf d5,adloop fvaldr: move.w #frmval,intin move.l #editbx,addrin bsr objoff tst antflg ; Changing current frame? beq.s fvald1 ; Yes, skip move #7,d5 waitnd: move.w #37,-(sp) ; Wait 6 vertical blanks trap #14 ; (in case button is being held) addq #2,sp dbf d5,waitnd bra ortn_exit fvald1: tst shfflg ; Were we holding shift (copying)? beq.s fvald2 ; No, skip bsr frm_2_arr ; Copy mouse form to new array position fvald2: bsr arr_2_frm ; Copy it back (dumb) bsr init_col move.w #colval,intin move.l #editbx,addrin bsr objoff bsr map_grid fvex: bra ortn_exit ani_up: tst antflg bne.s aniu_2 bsr chk_shift bsr frm_2_arr cmp.w #31,franum bne.s i_fnum move.b #'0',frvlms move.b #'1',frvlms+1 clr.w franum bra fvaldr i_fnum: addq.w #1,franum move.l #frvlms,a5 bra.s au_1 aniu_2: cmp.w #1,antflg bne.s aniu_3 cmp.w #32,nframs bne.s i_nfrm move.b #'0',fnvlms move.b #'1',fnvlms+1 move.w #1,nframs bra fvaldr i_nfrm: addq.w #1,nframs move.l #fnvlms,a5 bra.s au_1 aniu_3: cmp.w #99,delval bne.s i_delv move.b #'0',spvlms move.b #'0',spvlms+1 clr.w delval bra fvaldr i_delv: addq.w #1,delval move.l #spvlms,a5 au_1: move.l #1,d5 add.l d5,a5 auloop: cmp.b #'9',(a5) bne.s aul2 move.b #'0',(a5) bra.s aul3 aul2: addq.b #1,(a5) bra fvaldr aul3: subq #1,a5 dbf d5,auloop bra fvaldr * Subroutines for ani_up and ani_down chk_shift: clr.w shfflg move.w #-1,-(sp) ; Get Alt/Shift/Control status move.w #11,-(sp) trap #13 addq #4,sp btst #0,d0 ; Right shift key? bne.s shift1 btst #1,d0 ; Left shift key? beq.s shift2 shift1: move #1,shfflg shift2: rts frm_2_arr: bsr.s set_faadr cpyfr1: move.l (a1)+,(a0)+ dbf d0,cpyfr1 move.w (a1),(a0) ; Move last word to make it 74 rts arr_2_frm: bsr.s set_faadr cpyar1: move.l (a0)+,(a1)+ dbf d0,cpyar1 move.w (a0),(a1) bra copy_mouse set_faadr: move.l #mouse_array,a0 ; Address of animation array moveq #0,d0 ; Clear work register move.w franum,d0 ; Get current frame number mulu #74,d0 ; Multiply by 74 (74 bytes per mouse) add.l d0,a0 ; Add index to pointer move.w #17,d0 move.l #mouse_form,a1 rts clear_array: move.l #mouse_array,a0 move #591,d0 cla_1: clr.l (a0)+ dbf d0,cla_1 rts ani_onoff: tst onoff ; Is animation on or off? bne.s anio_2 ; It's on, skip ahead bsr frm_2_arr ; Copy current frame to animation buffer move.l #anonms,tinf5 ; Set "Animation ON" message move.w delval,vbtimr ; Set the vertical blank timer clr.w moucnt ; Clear the frame counter move #1,onoff ; Now set the animation flag bra.s anio_3 anio_2: move.l #anofms,tinf5 ; Set "Animation OFF" message clr.w moucnt ; Clear the frame counter clr.w onoff ; Clear the animation flag tst insflg ; Are we installed? beq.s anio_3 ; No, skip ahead move.l #g_mous,aespb ; Set mouse form back to installed shape move #255,intin move.l #m_form2,addrin bsr aes anio_3: move.w #anonof,intin ; Re-draw the ON/OFF message box move.l #editbx,addrin bsr objoff * bra.s ortn_exit * All object routines exit through here ortn_exit: tst.w butflg beq the_big_loop move.w o_indx,d0 cmp.w #cdowbt,d0 ; If it was 'down', 'up', or color selection, beq the_big_loop ; loop back right away cmp.w #cupbt,d0 beq the_big_loop cmp.w #colttl,d0 beq the_big_loop cmp.w #frmttl,d0 beq the_big_loop cmp.w #frdown,d0 beq the_big_loop cmp.w #frup,d0 beq the_big_loop cmp.w #anonof,d0 beq the_big_loop move.l o_asav,a0 ; Get address of object that was selected and.w #$FFFE,10(a0) ; De-select it tst.w numrtn ; If it was 'Save' or 'Load', go back to beq box ; the dialog box drawing code cmp.w #1,numrtn beq box bsr obdraw ; Go re-draw the object bra the_big_loop ; Back to the top of the loop ckchng: cmp.w #434,mousex ; Check to see if we're inside the blt.s ckbutt ; mouse-change rectangle cmp.w #515,mousex bgt.s ckbutt move mousey,d0 cmp.w y_off,d0 blt.s ckbutt cmp.w chang1,d0 bgt.s ckbutt tst.w m_flag ; Were we already in here? bne the_big_loop ; Yes! Go back move.l #m_mask,a0 move #15,d0 ck_img: tst.l (a0)+ ; If the mouse data is all zeros, don't bne.s setmou ; change it dbf d0,ck_img bra the_big_loop setmou: clr.w vbi_on ; Turn off the interrupt while we're here move #1,m_flag ; Set the flag move.l #g_mous,aespb ; Change the mouse form move #255,intin move.l #mouse_form,addrin bsr aes bra the_big_loop ckbutt: tst.w m_flag ; Just leaving the mouse-change rectangle? beq.s ckb2 ; No, skip move.l #g_mous,aespb move #255,intin tst.w insflg ; Mouse form installed? bne.s ckbu1 ; Yes, skip clr.w intin bra.s arr2 ckbu1: move #1,vbi_on tst onoff beq.s ckbu2 bsr which_mouse move.l a3,addrin bra.s arr2 ckbu2: move.l #m_form2,addrin arr2: bsr aes clr.w m_flag ckb2: btst #0,butsav ; Left button pressed? bne.s ckpos ; Yes, go check position btst #1,butsav ; Right button? bne.s ckpos tst.w d_flag ; Were we just drawing? beq the_big_loop ; No, forget it clr.w d_flag ; Clear the flag bra the_big_loop ckpos: tst.w d_flag ; OK, we're drawing - is the draw flag set? bne.s ckp1 ; Yes, so skip ahead bsr copy_mouse ; Copy mouse shape to undo buffer move #1,d_flag ; Set draw flag ckp1: move mousey,d0 ; Get Y position cmp.w y_off,d0 ; Is mouse Y >= 100/50? blt the_big_loop cmp.w y_bot,d0 ; Is it < 260/130? bge the_big_loop bsr inquire ; Go see which grid is being drawn on bra the_big_loop ; And back to the top exit: move d_mode,intin ; Reset all the polyline and fill bsr write_mode ; attributes move l_colr,intin bsr poly_color move l_type,intin bsr poly_type move l_wid,ptsin clr.w ptsin+2 bsr poly_width move l_strt,intin move l_end,intin+2 bsr poly_ends move f_type,intin bsr vsf_interior move f_colr,intin bsr vsf_color move f_patt,intin bsr vsf_style move #3,intin ; Release dialog box memory bsr dial move.l #w_clos,aespb ; Close window so the application gets a move whandl,intin ; redraw message bsr aes move.l #w_del,aespb ; Now delete the window bsr aes move.l #w_updt,aespb ; Allow messages again clr.w intin bsr aes ex2: bsr repl_button ; Replace the system button vector move #101,(a5) ; v_clsvwk (Close Virtual Workstation) clr.w 2(a5) clr.w 6(a5) bsr vdi bsr res_dpath ; Reset drive and pathname and.w #$FFFE,extstt ; Reset EXIT button clr diflag bra evntms ; Go back and wait for another message! * Subroutines inquire: move #0,hotflg ; Clear hotspot flag cmp.w #50,mousex ; Are we inside the data grid? blt inq_return ; No, exit cmp.w #209,mousex bge inq_2 ; Go check to see if we're over the mask grid moveq #0,d0 ; Clear work register move mousex,d0 ; Get mouse X position sub.w #50,d0 ; The data grid starts 50 pixels from the left divu #10,d0 ; Divide by 10 to get cell X bvc.s storx ; No overflow, skip sub.w d0,d0 ; Set it to zero storx: move d0,x ; Set X array index moveq #0,d0 ; Clear register move mousey,d0 ; Get mouse Y position sub.w y_off,d0 ; Subtract res-dependent offset value divu y_div,d0 ; Divide by res-dependent Y divisor bvc.s story ; No overflow, skip sub.w d0,d0 ; Clear it story: move d0,y ; Set Y array index btst #0,butsav ; Was the left button pressed? beq.s eras_1 ; No, go to the erase routine btst #1,butsav ; Right button? beq.s inq1_1 ; No, skip do_hot: bsr sample_mouse ; Read mouse status btst #0,intout+1 ; Still pressing the left button? bne do_hot ; Yes, loop btst #1,intout+1 ; Still pressing right? bne do_hot ; Yes, loop move.l x,temp ; Save current x index move.l x_hot,x ; Set x index to hotspot position move #1,hotflg ; Set hotspot flag dc.w $A00A ; Hide the mouse bsr draw_pixel ; Go draw the hotspot bsr show_mouse ; Show the mouse move.l temp,x_hot ; Replace x position bsr set_hotspot rts inq1_1: move.w #-1,-(sp) move.w #11,-(sp) trap #13 addq #4,sp btst #2,d0 ; Control key pressed? bne do_hot ; Yes, do the hot spot bsr get_iptr ; Get pointer to element of data array bne.s inq_return ; Return if not zero bset d0,d1 ; Set this bit move d1,(a0) ; And store it into the mouse shape area bra.s godraw eras_1: btst #1,butsav ; Right button? beq.s godraw ; No, skip bsr get_iptr ; Get pointer to data element beq.s inq_return ; Zero, exit bclr d0,d1 ; Clear this bit move d1,(a0) ; And store the word godraw: dc.w $A00A ; Hide the mouse bsr draw_pixel ; Go draw the pixel on the data grid bsr show_mouse ; Show the mouse again inq_return: rts inq_2: cmp.w #250,mousex ; Are we inside the mask grid? blt inq_return cmp.w #409,mousex bge inq_return moveq #0,d0 ; Clear the work register move mousex,d0 ; Get X position sub.w #250,d0 ; Mask grid starts 250 pixels from the left divu #10,d0 ; Each cell is 10 pixels wide bvc.s storx2 ; No overflow, skip sub.w d0,d0 ; Clear it storx2: move d0,x ; Save X index to array moveq #0,d0 ; Clear register move mousey,d0 ; Get Y position sub.w y_off,d0 ; Subtract res-dependent offset value divu y_div,d0 ; Divide by res-dependent Y divisor bvc.s story2 ; No overflow, skip sub.w d0,d0 ; Clear y index story2: move d0,y ; Save Y array index btst #0,butsav ; Left button? beq.s eras_2 ; No, go erase bsr get_mptr ; Get pointer to mask bit bne inq_return ; Already set, exit bset d0,d1 ; Set this bit in the mouse mask move d1,(a0) ; And save it bra godraw eras_2: btst #1,butsav ; Right button? beq godraw ; No, bail bsr get_mptr ; Find the bit and clear it beq inq_return ; (if it isn't already zero) bclr d0,d1 move d1,(a0) bra godraw map_grid: dc.w $A00A ; Hide mouse move #1,hotflg ; Set hotspot flag move #15,d5 ; Draw both grids map1: move #15,d4 map2: move d5,x move d4,y bsr.s draw_pixel dbf d4,map2 dbf d5,map1 bsr set_hotspot ; Draw the hotspot bsr show_mouse ; Show the mouse again rts copy_mouse: move.l x_hot,hotsav ; Copy the mouse shape to the undo buffer move.l #m_mask,a0 move.l #mouse_save,a1 move #15,d0 cpym2: move.l (a0)+,(a1)+ dbf d0,cpym2 rts res_mouse: move.l hotsav,x_hot ; Restore the mouse shape from the undo buffer move.l #m_mask,a0 move.l #mouse_save,a1 move #15,d0 resm2: move.l (a1)+,(a0)+ dbf d0,resm2 rts draw_pixel: bsr get_iptr ; Is this data bit set? bne.s solid ; Yes, skip ahead bsr get_mptr ; Is this mask bit set? bne.s blank2 ; Yes, skip ahead move.l #empty,filptr bsr.s d_int1 ; Draw the data cell bsr d_int2 ; Draw the mask cell bra.s draw_exit blank2: move.l #dots,filptr bsr.s d_int1 ; Draw the data cell bsr d_int2 ; Draw the mask cell bra.s draw_exit solid: bsr get_mptr ; Is this mask bit set? bne.s solid2 ; Yes, skip move.l #black,filptr bsr.s d_int1 ; Draw the data cell bsr d_int2 ; Draw the mask cell bra.s draw_exit solid2: move.l #black,filptr bsr.s d_int1 ; Draw the data cell move.l #dots,filptr bsr d_int2 ; Draw the mask cell draw_exit: tst.w hotflg ; Time to draw the hotspot? bne.s d_ex2 ; No, skip bsr set_hotspot ; Draw that hotspot d_ex2: rts d_int1: move.l screen,a0 ; Get address of screen memory moveq #0,d0 move y,d0 mulu y_div,d0 add.w y_off,d0 addq.w #1,d0 mulu y_scr,d0 add.l d0,a0 ; Set pointer to proper scan line moveq #0,d0 move.w x,d0 mulu #10,d0 add.w #51,d0 di1_0: divu #16,d0 cmp.w #2,res ; High res? bne.s col_di lsl.w d0 move.l d0,d1 swap d1 ; Get remainder to lower word ext.l d1 move.l filptr,a1 move #8,d3 ; Use d3 as counter (9 scan lines) di1_1: moveq #0,d2 ; Clear d2 move.w (a1),d2 ; Get first line of fill pattern swap d2 move.l #$007FFFFF,d7 ; Mask to d7 lsr.l d1,d2 or #16,ccr roxr.l d1,d7 and.l d7,0(a0,d0) or.l d2,0(a0,d0) add.l #80,a0 subq.w #1,d3 bmi.s di1ex moveq #0,d2 move.w 2(a1),d2 ; Second line of fill pattern swap d2 move.l #$007FFFFF,d7 ; Mask to d7 lsr.l d1,d2 or #16,ccr roxr.l d1,d7 and.l d7,0(a0,d0) or.l d2,0(a0,d0) add.l #80,a0 dbf d3,di1_1 di1ex: rts col_di: lsl.w #2,d0 move.l d0,d1 swap d1 ext.l d1 move.l filptr,a1 move #3,d3 col1_1: moveq #0,d2 move.w 4(a1),d2 swap d2 move.l #$007FFFFF,d7 lsr.l d1,d2 or #16,ccr roxr.l d1,d7 and.w d7,4(a0,d0) and.w d7,6(a0,d0) swap d7 and.w d7,0(a0,d0) and.w d7,2(a0,d0) or.w d2,4(a0,d0) swap d2 or.w d2,0(a0,d0) moveq #0,d2 move.w 6(a1),d2 swap d2 lsr.l d1,d2 or.w d2,6(a0,d0) swap d2 or.w d2,2(a0,d0) add.l #160,a0 dbf d3,col1_1 rts d_int2: move.l screen,a0 ; Get address of screen memory moveq #0,d0 move y,d0 mulu y_div,d0 add.w y_off,d0 addq.w #1,d0 mulu y_scr,d0 add.l d0,a0 ; Set pointer to proper scan line moveq #0,d0 move.w x,d0 mulu #10,d0 add.w #251,d0 ; Now we're drawing on the Mask grid bra di1_0 set_hotspot: dc.w $A00A ; Hide mouse move x_hot,x ; Get hotspot coordinates move y_hot,y move.l #hotpat,filptr bsr d_int1 ; Draw it bsr show_mouse ; Show the mouse rts get_iptr: moveq #0,d0 move y,d0 add.w d0,d0 add.l #m_image,d0 bra.s btest get_mptr: moveq #0,d0 move y,d0 add.w d0,d0 add.l #m_mask,d0 * bra.s btest btest: move.l d0,a0 move (a0),d1 move #15,d0 sub.w x,d0 btst d0,d1 rts init_col: move.b #'0',dvalms move.b #'0',mvalms move.b #'0',dvalms+1 move.b #'0',mvalms+1 move.l #mvalms,a5 moveq #0,d0 move fg_col,d0 bsr.s setdec move.l #dvalms,a5 moveq #0,d0 move bg_col,d0 bsr.s setdec rts init_nfrm: move.b #'0',fnvlms move.b #'0',fnvlms+1 move.b #'0',spvlms move.b #'0',spvlms+1 move.l #fnvlms,a5 moveq #0,d0 move nframs,d0 bsr.s setdec move.l #spvlms,a5 moveq #0,d0 move delval,d0 bsr.s setdec rts setdec: addq.l #1,a5 setd1: subq.w #1,d0 bmi.s setd2 addq.b #1,(a5) cmp.b #':',(a5) bne setd1 move.b #'0',(a5) addq.b #1,-1(a5) bra setd1 setd2: rts show_mouse: dc.w $A000 move.l 8(a0),a0 move #0,(a0) dc.w $A009 rts open_file: clr.w -(sp) move.l a5,-(sp) move #$3D,-(sp) trap #1 addq #8,sp tst.w d0 rts read_file: move.l a5,-(sp) move.l d5,-(sp) move fhandl,-(sp) move #$3F,-(sp) trap #1 add #12,sp tst.l d0 rts clos_file: move fhandl,-(sp) move #$3E,-(sp) trap #1 addq #4,sp rts delete_file: move.l a0,-(sp) move.w #$41,-(sp) trap #1 addq #6,sp rts chk_anfile: clr.w a_good moveq #0,d7 move #31,d6 chkan1: move.l d7,d0 bsr lseek bmi.s chkan2 move.l #nfrtst,a5 move.l #4,d5 bsr read_file bmi.s chkan2 cmp.w #15,(a5) bhi.s chkan2 cmp.w #15,2(a5) bhi.s chkan2 addq.l #6,d7 move.l d7,d0 bsr lseek bmi.s chkan2 bsr read_file bmi.s chkan2 cmp.w #15,(a5) bhi.s chkan2 cmp.w #15,2(a5) bhi.s chkan2 add.l #68,d7 dbf d6,chkan1 move.l #2368,d0 bsr lseek bmi.s chkan2 move.l #nfrtst,a5 move.l #4,d5 bsr read_file bmi.s chkan2 cmp.w #32,(a5) bhi.s chkan2 cmp.w #99,2(a5) bhi.s chkan2 rts chkan2: move.w #-1,a_good rts write_mode: move.l #contrl,a5 move #32,(a5) ; Set writing mode move #0,2(a5) move #1,6(a5) bra vdi poly_color: move.l #contrl,a5 move #17,(a5) ; vsl_color (Set Polyline Color) move #0,2(a5) move #1,6(a5) bra vdi poly_type: move.l #contrl,a5 move #15,(a5) ; vsl_type (Set Polyline Type) move #0,2(a5) move #1,6(a5) bra vdi poly_width: move.l #contrl,a5 move #16,(a5) ; vsl_width (Set Polyline Width) move #1,2(a5) move #0,6(a5) bra vdi poly_ends: move.l #contrl,a5 move #108,(a5) ; vsl_ends (Set Polyline End Styles) move #0,2(a5) move #2,6(a5) bra vdi polyline: move.l #contrl,a5 move #6,(a5) move pt_num,2(a5) move #0,6(a5) bra vdi vsf_color: move.l #contrl,a5 move #25,(a5) move #0,2(a5) move #1,6(a5) bra vdi vsf_interior: move.l #contrl,a5 move #23,(a5) move #0,2(a5) move #1,6(a5) bra vdi vsf_style: move.l #contrl,a5 move #24,(a5) move #0,2(a5) move #1,6(a5) bra vdi exch_button: move.l #contrl,a5 ; Point the mouse button routine move #125,(a5) ; to an RTS to prevent the AES from clr.w 2(a5) ; buffering button presses clr.w 6(a5) move.l #butrts,14(a5) bsr vdi move.l 18(a5),badsav rts repl_button: move.l #contrl,a5 move #125,(a5) ; Reset button vector so we can use the clr.w 2(a5) ; AES again clr.w 6(a5) move.l badsav,14(a5) bra vdi sample_mouse: move.l #contrl,a5 move #124,(a5) move #0,2(a5) move #0,6(a5) bra vdi open_window: move.l #w_get,aespb move.l #intin,a5 clr.w (a5) move.w #4,2(a5) bsr aes move.l intout+2,wx move.l intout+6,ww move.l #intin,a5 move.l #w_crea,aespb ; Create a full-screen window clr.w (a5) move.l wx,2(a5) move.l ww,6(a5) bsr aes tst.w intout ; Error? (Probably too many windows open) bpl.s openwi ; No, continue move.w #-1,d0 rts openwi: move intout,whandl move.l #w_open,aespb ; Open the window! move whandl,(a5) ; a5 is still pointing to intin move.l wx,2(a5) move.l ww,6(a5) bsr aes moveq #0,d0 rts fsel: tst fsflag bne.s fsel1 move.l itmadr,a0 ; Change the "ITEM SELECTOR" text to something move.l txtadr,(a0) ; a bit more meaningful move itmlen,8(a0) or.w #1,-2(a0) fsel1: move.l #f_sel,aespb ; Let's call fsel_input with opcode 90 move.l diradr,addrin move.l filadr,addrin+4 bsr aes tst fsflag bne.s fsel2 move.l itmadr,a0 ; Restore the fsel text line move.l iasav,(a0) and.w #$FE,-2(a0) move ilensv,8(a0) fsel2: rts set_path: clr.w d0 ; Set current drive from output of move.l diradr,a0 ; fsel routine move.b (a0),d0 sub.b #65,d0 move d0,-(sp) move #$0E,-(sp) trap #1 addq #4,sp move.l diradr,a0 ; Also set pathname from fsel addq.l #2,a0 move.l #pathnm,a1 move.l #63,d5 pathlp: tst.b (a0) beq.s plx1 move.b (a0)+,(a1)+ dbf d5,pathlp plx1: move.l #63,d5 plp2: cmp.b #"\\",-(a1) beq.s plx2 dbf d5,plp2 plx2: clr.b 1(a1) pea pathnm move #$3B,-(sp) trap #1 addq #6,sp rts chk_extension: move.l filadr,a0 ; Check to see if the chosen filename has chke_1: tst.b (a0) ; an extension. If not, add the proper one. beq.s setext ; If so, leave it alone cmp.b #".",(a0)+ beq.s nosete bra chke_1 setext: move #4,d0 setx1: move.b (a1)+,(a0)+ dbf d0,setx1 nosete: rts res_dpath: move curdrv,-(sp) ; Reset current drive and pathname move #$0E,-(sp) trap #1 addq #4,sp move.l #curpth,-(sp) move #$3B,-(sp) trap #1 addq #6,sp rts * form_alert * Enter with a5= address of definition string * d5= number of default box alert: move.l a5,addrin ; Set address of string move d5,intin ; Set default box move.l #f_alrt,aespb ; Display alert box bra aes * Dialog box drawing routine drawbx: move.l #f_cntr,aespb ; First, let's call form_center bsr aes move.l #intout,a0 move.l 2(a0),cx move.l 6(a0),cw subq.w #2,cx subq.w #2,cy addq.w #6,cw addq.w #6,ch tst diflag bne.s draw_1 clr.w intin bsr.s dial draw_1: move.l #intin,a5 move.l #o_cdrw,aespb ; Objc_draw move #0,(a5) ; Root object gets drawn first move #5,2(a5) ; Up to 5 levels of subordinate objects move.l cx,4(a5) ; (dial subroutine sets a5->intin) move.l cw,8(a5) bra aes dial: move.l #f_dial,aespb ; Form_dial move.l #intin,a5 clr.l 2(a5) ; No growing/shrinking boxes, so just clr.l 6(a5) ; zero out the start coordinates move.l cx,10(a5) move.l cw,14(a5) bra aes obdraw: move.l #o_cdrw,aespb move.l #intin,a0 move o_indx,(a0) move #1,2(a0) move.l x_obj1,4(a0) move.l w_obj,8(a0) move.l #editbx,addrin bra.s aes formdo: move.l #f_do,aespb ; Call form_do to get user input clr.w intin ; No editable text field bra.s aes ; Do it! objoff: move.l #o_coff,aespb ; Calculate clipping rectangle and re-draw bsr.s aes ; an object. intin must be set to the index move.l #o_cdrw,aespb ; of the object to be drawn, addrin to the move.l #intin+2,a5 ; address of the parent object tree move #0,(a5)+ move intout+2,(a5) addq.w #1,(a5)+ move intout+4,(a5) addq.w #1,(a5)+ moveq #0,d0 move intin,d0 mulu #24,d0 add.l addrin,d0 move.l d0,a0 move 20(a0),(a5) subq.w #2,(a5)+ move 22(a0),(a5) subq.w #2,(a5)+ bra.s aes * VDI and AES subroutines vdi: move vhandl,12(a5) vdi1: move.l #vdipb,d1 move.l #$73,d0 trap #2 butrts: rts aes: move.l #aespb,d1 move.l #$C8,d0 trap #2 rts my_vblank: movem.l d0/a0-a3,-(sp) ; Save registers cmp.b #2,sshiftmod ; High res? beq.s vbl1 ; Yes, skip the res check tst lowflg ; Did we find the Set Preferences dialog? bne.s vbl1 move.l res_optr,a0 btst #0,1(a0) ; SELECTED? (Changing resolution?) beq.s vbl1 ; No, continue move.l res_okptr,a0 ; Now check the "OK" button btst #0,1(a0) ; SELECTED? (_really_ changing?) beq.s vbl1 ; Not yet! move.l line_a,a0 btst #0,but_stat(a0) ; Let go of the left button yet??? bne.s vbl1 ; The suspense is killing me! move.l sysvc1,$70 ; Remove the vertical blank interrupt clr insflg ; Clear installed flag move.l $502,a0 cmp.l #$ABADBABE,2(a0) bne fall_thru move.l 22(a0),$B4 ; The infamous kludge for ALT.ACC bra fall_thru ; And bail vbl1: tst vbi_on ; Are we interrupting? beq fall_thru ; Nope! move.l line_a,a0 tst.b ignore(a0) ; Ignore the mouse? bne.s fall_thru ; Do so ckarrw: move.l sprtad,a0 ; The address of the mouse sprite definition move.l a0,a2 move.l #arrow_data,a1 move #15,d0 ; 16 longwords vbl2: cmp.l (a0)+,(a1)+ ; Did somebody put an arrow in here??? bne.s vbl4 ; No, I guess not dbf d0,vbl2 tst onoff bne.s vbl2a move.l #m_form2,a3 bra.s vbl2b vbl2a: bsr which_mouse vbl2b: bsr.s stuff_it bsr force_it ; Force the OS to show the mouse vbl4: tst onoff ; Animation on? beq.s fall_thru ; Nope, bail subq.w #1,vbtimr ; Decrement animation timer bpl.s fall_thru ; Not time yet, bail move.w delval,vbtimr ; Reset timer move.w nframs,d0 ; Get number of frames in the loop subq.w #1,d0 cmp.w moucnt,d0 ; Are we at the last frame? bhi.s vbl5 ; No, skip ahead clr.w moucnt ; Clear the frame counter bra.s vbl6 vbl5: addq.w #1,moucnt ; Increment frame counter vbl6: bsr.s which_mouse ; Get pointer to mouse data move.l sprtad,a2 bsr.s stuff_it bsr.s force_it fall_thru: movem.l (sp)+,d0/a0-a3 ; Restore them registers, pal sysj1: jmp $DEADBEEF ; Jump to system VBI routine sysvc1 = sysj1+2 stuff_it: move.l (a3),-10(a2) ; Caught you red-handed! Set the hot spot moveq #0,d0 move 6(a3),d0 ; Get mask color bsr.s vb_color ; Go adjust the color move d0,-4(a2) ; Set the color move 8(a3),d0 ; Get data color bsr.s vb_color ; Adjust it move d0,-2(a2) ; Set it move.l a3,a0 add.l #10,a0 ; The data is stored in sprite format move.l a3,a1 add.l #42,a1 ; --- alternating words of data and mask move #15,d0 stuff2: move (a0)+,(a2)+ ; Take that! move (a1)+,(a2)+ ; The mouse thief strikes! dbf d0,stuff2 rts which_mouse: moveq #0,d0 move.w moucnt,d0 mulu #74,d0 add.l #mouse_array,d0 move.l d0,a3 rts vb_color: move.l valsav,a0 add.l d0,a0 ; Add color value to start of table move.b (a0),d0 ; Get adjusted color rts force_it: bsr.s pac_butt tst mouse_x(a0) ; Are we at the left edge of the screen? bne.s force1 ; No, skip over addq #1,mouse_x(a0) ; Move it right move.b #$FF,anipac+1 ; Move it back left bra.s pac_send force1: subq #1,mouse_x(a0) ; Move it left move.b #$01,anipac+1 ; Move it back right force2: bra.s pac_send pac_butt: move.b #$F8,anipac move.l line_a,a0 btst.b #0,but_stat(a0) beq.s pacb2 bset.b #1,anipac pacb2: btst.b #1,but_stat(a0) beq.s pacb3 bset.b #0,anipac pacb3: rts pac_send: move.l #anipac,a0 move.w sr,srsave or.w #$700,sr j_add2: jsr $DEADBEEF sysvc2 = j_add2+2 move.w srsave,sr rts save_vbv: move.l ipl_vec,sysvc1 move.l #my_vblank,ipl_vec move.l $502,a0 cmp.l #$ABADBABE,2(a0) bne.s getmsv move.l 18(a0),a0 bra.s getms1 getmsv: move.w #34,-(sp) ; Xbios kbdvbase trap #14 addq #2,sp move.l d0,a0 move.l 16(a0),a0 ; Save mouse interrupt vector getms1: move.l a0,sysvc2 rts .data .even vdipb: dc.l contrl,intin,ptsin,intout,ptsout aespb: dc.l contrl,global,intin,intout,addrin,addrout a_init: dc.w 10,0,1,0,0 e_mesg: dc.w 23,0,1,1,0 e_timr: dc.w 24,2,1,0,0 m_reg: dc.w 35,1,1,1,0 g_hand: dc.w 77,0,5,0,0 g_mous: dc.w 78,1,1,1,0 r_obfx: dc.w 114,1,1,1,0 f_dial: dc.w 51,9,1,1,0 f_alrt: dc.w 52,1,1,1,0 f_cntr: dc.w 54,0,5,1,0 f_do: dc.w 50,1,2,1,0 o_cdrw: dc.w 42,6,1,1,0 o_cfnd: dc.w 43,4,1,1,0 o_coff: dc.w 44,1,3,1,0 f_sel: dc.w 90,0,2,2,0 w_crea: dc.w 100,5,1,0,0 w_open: dc.w 101,5,5,0,0 w_clos: dc.w 102,1,1,0,0 w_del: dc.w 103,1,1,0,0 w_get: dc.w 104,2,5,0,0 w_updt: dc.w 107,1,1,0,0 ob_inx: dc.w savebt,loadbt,clrmbt,clrdbt,invdbt,invmbt dc.w upbt,leftbt,downbt,ritebt,mirdbt,mirmbt,rotbt dc.w exitbt,instbt,remvbt,undobt,cdowbt,cupbt,colttl dc.w frmttl,frdown,frup,anonof o_dum: dc.w 0 oi_len = (o_dum-ob_inx)/2 rtn_table: dc.l save,load,clr_mask,clr_data,inv_data,inv_mask dc.l up,left,down,right,mir_data,mir_mask,rotate dc.l exit,install,remove,undo,colr_down,colr_up,sw_fgbg dc.l sw_anttl,ani_down,ani_up,ani_onoff low_val: dc.b 0,15,1,2,4,6,3,5,7,8,9,10,12,14,11,13 med_val: dc.b 0,15,1,2,15,15,15,15,15,15,15,15,15,15,15,15 hi_val: dc.b 0,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15 y_off: dc.w 100 y_bot: dc.w 260 chang1: dc.w 180 chang2: dc.w 140 y_div: dc.w 10 y_scr: dc.w 80 celsiz: dc.w 9 fillst: dc.w 2 filhot: dc.w 5 empty: dc.w $0000,$0000 mempty: dc.w $0000,$0000 dots: dc.w $AA80,$0000 mdots: dc.w $0000,$FF80 black: dc.w $FF80,$FF80 mblack: dc.w $FF80,$FF80 hotpat: dc.w $5500,$FF80 mhotpt: dc.w $FF80,$0000 mouse_form: x_hot: dc.w 0 y_hot: dc.w 0 planes: dc.w 1 fg_col: dc.w 0 bg_col: dc.w 1 m_mask: dc.w $C000,$E000,$F000,$F800 dc.w $FC00,$FE00,$FF00,$FF80 dc.w $FFC0,$FFE0,$FE00,$EF00 dc.w $CF00,$8780,$0780,$0380 m_image: dc.w $0000,$4000,$6000,$7000 dc.w $7800,$7C00,$7E00,$7F00 dc.w $7F80,$7C00,$6C00,$4600 dc.w $0600,$0300,$0300,$0000 arrow_data: dc.w $C000,$0000,$E000,$4000 ; Data for arrow cursor in sprite dc.w $F000,$6000,$F800,$7000 ; format (alternating words of mask dc.w $FC00,$7800,$FE00,$7C00 ; and data) dc.w $FF00,$7E00,$FF80,$7F00 dc.w $FFC0,$7F80,$FFE0,$7C00 dc.w $FE00,$6C00,$EF00,$4600 dc.w $CF00,$0600,$8780,$0300 dc.w $0780,$0300,$0380,$0000 * TEDINFO structures tinf0: dc.l stlog,dummy,dummy ; ST-Log Presents dc.w 5,6,1,$1000,0,-1,17,1 tinf1: dc.l copyrt,dummy,dummy ; Copyright 1987 dc.w 5,6,2,$1000,0,-1,15,1 tinf2: dc.l footbl,dummy,dummy ; Little Green Footballs dc.w 5,6,2,$1000,0,-1,23,1 tinf3: dc.l dcolms,dummy,dummy ; Data/Mask color message dc.w 5,6,2,$1180,0,-1,11,1 tinf4: dc.l framms,dummy,dummy ; Frame/#/Speed message dc.w 5,6,2,$1180,0,-1,6,1 tinf5: dc.l anofms,dummy,dummy ; Animation ON/OFF message dc.w 5,6,2,$1180,0,-1,14,1 tinf10: dc.l dcolms,dummy,dummy ; Low res Data/Mask message dc.w 5,6,2,$1180,0,-1,11,1 * Editor dialog box editbx: dc.w -1,1,32,G_BOX,NONE,SHADOWED dc.l $FF1100 dc.w 0,0,76,20 dc.w 5,2,4,G_STRING,NONE,SELECTED dc.l mousms dc.w 0,0,76,2 dc.w 3,-1,-1,G_TEXT,NONE,NORMAL dc.l tinf0 dc.w 1,0,13,2 dc.w 4,-1,-1,G_TEXT,NONE,NORMAL dc.l tinf1 cop_co: dc.w 57,0,17,1 dc.w 1,-1,-1,G_TEXT,NONE,NORMAL dc.l tinf2 footco: dc.w 57,1,17,1 dc.w 6,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l instms dc.w 66,3,8,1 dc.w 7,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l remvms dc.w 66,5,8,1 dc.w 8,-1,-1,G_BOXTEXT,NONE,NORMAL dc.l tinf3 dc.w 65,7,10,1 dc.w 9,-1,-1,G_BOXCHAR,NONE,NORMAL dc.l $2FF1100 dc.w 65,8,3,2 dc.w 10,-1,-1,G_BUTTON,SELECTABLE,NORMAL valadr: dc.l dvalms col_co: dc.w 68,8,4,2 dc.w 11,-1,-1,G_BOXCHAR,NONE,NORMAL dc.l $1FF1100 dc.w 72,8,3,2 dc.w 12,-1,-1,G_BOXCHAR,NONE,SHADOWED dc.l $1FF1100 upco: dc.w 57,9,2,1 dc.w 13,-1,-1,G_BOXCHAR,NONE,SHADOWED dc.l $4FF1100 leftco: dc.w 53,11,2,1 dc.w 14,-1,-1,G_BOXCHAR,NONE,SHADOWED dc.l $3FF1100 riteco: dc.w 61,11,2,1 dc.w 15,-1,-1,G_BOXTEXT,NONE,NORMAL dc.l tinf4 dc.w 65,11,10,1 dc.w 16,-1,-1,G_BOXCHAR,NONE,NORMAL dc.l $2FF1100 dc.w 65,12,3,2 dc.w 17,-1,-1,G_BUTTON,SELECTABLE,NORMAL anival: dc.l frvlms dc.w 68,12,4,2 dc.w 18,-1,-1,G_BOXCHAR,NONE,NORMAL dc.l $1FF1100 dc.w 72,12,3,2 dc.w 19,-1,-1,G_BOXCHAR,NONE,SHADOWED dc.l $2FF1100 downco: dc.w 57,13,2,1 dc.w 20,-1,-1,G_STRING,NONE,SELECTED dc.l dat_ms datco: dc.w 11,14,6,1 dc.w 21,-1,-1,G_STRING,NONE,SELECTED dc.l maskms mskco: dc.w 36,14,6,1 dc.w 22,-1,-1,G_BOXTEXT,NONE anistt: dc.w NORMAL dc.l tinf5 dc.w 65,14,10,1 dc.w 23,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l savems dc.w 2,16,7,1 dc.w 24,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l clrdms dc.w 11,16,12,1 dc.w 25,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l invdms dc.w 24,16,12,1 dc.w 26,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l mirdms dc.w 37,16,12,1 dc.w 27,-1,-1,G_BUTTON,SELECTABLE extstt: dc.w SHADOWED dc.l exitms dc.w 67,16,7,3 dc.w 28,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l undoms dc.w 58,16,7,3 dc.w 29,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l rotms dc.w 50,16,7,3 dc.w 30,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l loadms dc.w 2,18,7,1 dc.w 31,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l clrmms dc.w 11,18,12,1 dc.w 32,-1,-1,G_BUTTON,SELECTABLE,SHADOWED dc.l invmms dc.w 24,18,12,1 dc.w 0,-1,-1,G_BUTTON,$21,SHADOWED dc.l mirmms dc.w 37,18,12,1 ed_adr: dc.l editbx objnum = (ed_adr-editbx)/24-1 * Low-res dialog box lowbox: dc.w -1,1,14,G_BOX,NONE,SHADOWED dc.l $FF1100 dc.w 0,0,38,14 dc.w 2,-1,-1,G_STRING,NONE,SELECTED dc.l lttlms dc.w 0,0,38,2 dc.w 3,-1,-1,G_STRING,NONE,NORMAL dc.l lms1 dc.w 1,3,23,1 dc.w 4,-1,-1,G_BUTTON,$5 loistt: dc.w NORMAL dc.l loadms dc.w 26,3,10,1 dc.w 5,-1,-1,G_STRING,NONE,NORMAL dc.l lms2 dc.w 1,4,18,1 dc.w 6,-1,-1,G_BUTTON,$5 losstt: dc.w NORMAL dc.l savems dc.w 26,5,10,1 dc.w 7,-1,-1,G_STRING,NONE,NORMAL dc.l lms3 dc.w 1,6,22,1 dc.w 8,-1,-1,G_BUTTON,$5 lorstt: dc.w NORMAL dc.l remvms dc.w 26,7,10,1 dc.w 9,-1,-1,G_STRING,NONE,NORMAL dc.l lms4 dc.w 1,7,19,1 dc.w 10,-1,-1,G_STRING,NONE,NORMAL dc.l lms5 dc.w 1,8,20,1 dc.w 11,-1,-1,G_BOXTEXT,TOUCHEXIT locstt: dc.w NORMAL dc.l tinf10 dc.w 7,10,10,1 dc.w 12,-1,-1,G_BUTTON,$7 loestt: dc.w NORMAL dc.l exitms dc.w 26,10,10,2 dc.w 13,-1,-1,G_BOXCHAR,TOUCHEXIT lodstt: dc.w NORMAL dc.l $2FF1100 dc.w 7,11,3,2 dc.w 14,-1,-1,G_BUTTON,NONE,NORMAL lovadr: dc.l dvalms dc.w 10,11,4,2 dc.w 0,-1,-1,G_BOXCHAR,$60 loustt: dc.w NORMAL dc.l $1FF1100 dc.w 14,11,3,2 lo_adr: dc.l lowbox lo_num = (lo_adr-lowbox)/24-1 * Text for dialog objects stlog: dc.b 'ST-Log Presents:',0 copyrt: dc.b 'Copyright 1987',0 footbl: dc.b 'Little Green Footballs' dummy: dc.b 0 mousms: dc.b ' MOUSE-KA-MANIA! by Charles F. Johnson',0 instms: dc.b 'Install',0 remvms: dc.b 'Remove',0 savems: dc.b 'Save',0 loadms: dc.b 'Load',0 clrdms: dc.b 'Clear Data',0 clrmms: dc.b 'Clear Mask',0 invdms: dc.b 'Invert Data',0 invmms: dc.b 'Invert Mask',0 mirdms: dc.b 'Mirror Data',0 mirmms: dc.b 'Mirror Mask',0 rotms: dc.b 'Rotate',0 exitms: dc.b 'EXIT',0 undoms: dc.b 'UNDO',0 dat_ms: dc.b ' DATA',0 maskms: dc.b ' MASK',0 dvalms: dc.b '01',0 mvalms: dc.b '00',0 frvlms: dc.b '01',0 fnvlms: dc.b '01',0 spvlms: dc.b '00',0 blnkms: dc.b ' ',0 dcolms: dc.b 'Data Color',0 mcolms: dc.b 'Mask Color',0 framms: dc.b 'Current Frame',0 frmnms: dc.b '# of Frames',0 speems: dc.b 'Delay',0 anonms: dc.b 'Animation ON',0 anofms: dc.b 'Animation OFF',0 lttlms: dc.b " Mouse-Ka-Mania by Charles F. Johnson ",0 lms1: dc.b "The Editor doesn't work",0 lms2: dc.b "in low resolution.",0 lms3: dc.b "However, you may still",0 lms4: dc.b "install or remove a",0 lms5: dc.b "custom mouse cursor!",0 .even itmtxt: dc.b 'ITEM SELECTOR' restxt: dc.b 'Low',0,'Medium',0,'High' datext: dc.b ':\\*.DAT',0 aniext: dc.b ':\\*.MKM',0 i_save: dc.b ' Save Mouse Data to which File? ' is_dum: dc.b 0 is_len = (is_dum-i_save)*8 i_asav: dc.b ' Save Animation to which File? ' ia_dum: dc.b 0 iaslen = (ia_dum-i_asav)*8 i_load: dc.b ' Load Mouse Data from which File? ' il_dum: dc.b 0 il_len = (il_dum-i_load)*8 i_aloa: dc.b ' Load Animation from which File? ' ial_du: dc.b 0 iallen = (ial_du-i_aloa)*8 dat_or_ani: dc.b '[2][ Which type of file? | ]' dc.b '[Animation|Single Frame]' notani: dc.b '[3][ This is not a Mouse-Ka-Mania |' dc.b ' animation file. | ]' dc.b '[ Oops! ]' exist: dc.b '[3][ The file ' exname: dc.b ' | already exists! | |' dc.b ' Over-write it?| ]' dc.b '[ Yes | No ]' dskful: dc.b '[3][ This disk is full! | ][ Oops! ]' accmsg: dc.b ' Mouse-ka-Mania!',0 lowdef: dc.b '\\MOUSELOW.DEF',0 meddef: dc.b '\\MOUSEMED.DEF',0 hidef: dc.b '\\MOUSEHI.DEF',0 anipac: dc.b 0,0,0,0 .bss .even line_a: ds.l 1 valsav: ds.l 1 temp: ds.l 1 o_asav: ds.l 1 itmadr: ds.l 1 iasav: ds.l 1 txtadr: ds.l 1 diradr: ds.l 1 filadr: ds.l 1 badsav: ds.l 1 sprtad: ds.l 1 screen: ds.l 1 filptr: ds.l 1 nfrtst: ds.l 1 res_optr: ds.l 1 res_okptr: ds.l 1 scncnt: ds.w 1 srsave: ds.w 1 fsflag: ds.w 1 lowflg: ds.w 1 o_res: ds.w 1 res: ds.w 1 menuid: ds.w 1 curdrv: ds.w 1 colflg: ds.w 1 adflag: ds.w 1 antflg: ds.w 1 shfflg: ds.w 1 onoff: ds.w 1 vbi_on: ds.w 1 vbtimr: ds.w 1 moucnt: ds.w 1 franum: ds.w 1 nframs: ds.w 1 delval: ds.w 1 diflag: ds.w 1 insflg: ds.w 1 itmlen: ds.w 1 ilensv: ds.w 1 numrtn: ds.w 1 butflg: ds.w 1 o_indx: ds.w 1 hotflg: ds.w 1 m_flag: ds.w 1 d_flag: ds.w 1 a_good: ds.w 1 pt_num: ds.w 1 ghandl: ds.w 1 vhandl: ds.w 1 whandl: ds.w 1 fhandl: ds.w 1 butsav: ds.w 1 mousex: ds.w 1 mousey: ds.w 1 x: ds.w 1 y: ds.w 1 cx: ds.w 1 cy: ds.w 1 cw: ds.w 1 ch: ds.w 1 wx: ds.w 1 wy: ds.w 1 ww: ds.w 1 wh: ds.w 1 x_obj1: ds.w 1 y_obj1: ds.w 1 x_obj2: ds.w 1 y_obj2: ds.w 1 w_obj: ds.w 1 h_obj: ds.w 1 l_type: ds.w 1 l_colr: ds.w 1 d_mode: ds.w 1 l_strt: ds.w 1 l_end: ds.w 1 l_wid: ds.w 1 f_type: ds.w 1 f_colr: ds.w 1 f_patt: ds.w 1 * GEM arrays contrl: ds.w 12 intin: ds.w 128 ptsin: ds.w 128 intout: ds.w 128 ptsout: ds.w 128 global: apvrsn: ds.w 1 apcont: ds.w 1 apid: ds.w 1 apprvt: ds.l 1 apptre: ds.l 1 ap1rsv: ds.l 1 ap2rsv: ds.l 1 ap3rsv: ds.l 1 ap4rsv: ds.l 1 addrin: ds.w 128 addrout:ds.w 128 m_form2: ds.b 74 ; The installed mouse form hotsav: ds.l 1 ; Hot spot undo mouse_save: ds.w 32 ; Undo buffer m_rotate: ds.w 32 ; Rotation buffer mouse_array: ds.b 74*32 ; Animation array savfil: ds.b 16 svafil: ds.b 16 lodfil: ds.b 16 loafil: ds.b 16 savdir: ds.b 64 svadir: ds.b 64 loddir: ds.b 64 loadir: ds.b 64 pathnm: ds.b 64 curpth: ds.b 64 mspipe: ds.b 32 dta: ds.b 44 ds.l 300 ; Reserve 1200 bytes for stack ustack: ds.l 1 ds.w 10